home *** CD-ROM | disk | FTP | other *** search
/ cyber.net interactivo 1997 April / inter@ivo 1997-04.iso / demos / referenc / orsay / dataor / aven.dxr / 00012.ls < prev    next >
Encoding:
Text File  |  1996-06-17  |  597 b   |  27 lines
  1. on exitFrame
  2.   repeat with I = 1 to 50
  3.     set the locV of sprite 1 to the locV of sprite 1 + 5
  4.     if the mouseDown then
  5.       quit()
  6.     end if
  7.     updateStage()
  8.   end repeat
  9.   repeat with I = 1 to 20
  10.     set the locV of sprite 1 to the locV of sprite 1 + 5
  11.     set the locH of sprite 1 to the locH of sprite 1 + 5
  12.     if the mouseDown then
  13.       quit()
  14.     end if
  15.     updateStage()
  16.   end repeat
  17.   repeat with I = 1 to 20
  18.     set the locH of sprite 1 to the locH of sprite 1 + 5
  19.     updateStage()
  20.     if the mouseDown then
  21.       quit()
  22.     end if
  23.   end repeat
  24.   puppetSprite(1, 0)
  25.   wait(1)
  26. end
  27.